home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / tasys_10.lha / rexx / TASys.Trans
Text File  |  1995-10-03  |  3KB  |  138 lines
  1. /**/
  2. /* TA-Sys - (C) S.Gillibrand 1995 - Digital Design Production */
  3. /**/
  4.  
  5. ver$="1.0"
  6.  
  7.                          /* Variables To Alter */
  8.  
  9. sysinfopath="Work:Utilities/SysInfo/SysInfo" /* The Path To The SysInfo */
  10. qinfopath="C:Qinfo"                          /* The Path To The QInfo   */
  11. statuspath="C:Status"                        /* The Path To The Status  */
  12. availpath="C:Avail"                          /* The Path To The Avail   */
  13. cpu=0                                        /* 0=CPU ISN'T a 68040     */
  14.                                              /* 1=CPU IS a 68040        */
  15.  
  16.                          /*                    */
  17.  
  18. Options Results
  19. Cls
  20. Newline
  21. ab=0
  22. Userinfo 'x'
  23. Ansi=result
  24. if ansi="ON" then do
  25.     red=""
  26.     grn=""
  27.     yel=""
  28.     blu=""
  29.     mag=""
  30.     cyn=""
  31.     wht=""
  32.     bld=""
  33.     fsh=""
  34.     clr=""
  35. end
  36. else do
  37.     red=""
  38.     grn=""
  39.     yel=""
  40.     blu=""
  41.     mag=""
  42.     cyn=""
  43.     wht=""
  44.     bld=""
  45.     fsh=""
  46.     clr=""
  47. end
  48. print YEL"TA-Sys "ver$" - (C) S.Gillibrand 1995 - Digital Design Production"
  49. newline
  50. print CYN"Devices Mounted:"CLR||BLD
  51. newline
  52. address command qinfopath" >T:TA-Sys.Tmp"
  53. sendfile "T:TA-Sys.Tmp"
  54. newline
  55. send CYN"Gathering System Information Please Wait...  "
  56. newline
  57. Address command sysinfopath" -q >T:TA-Sys.Tmp"
  58. Address Command availpath" chip >T:Ta-Sys.Temp"
  59. call Open(in,'T:Ta-Sys.Temp','R')
  60. chip=readln(in)
  61. Call close(in)
  62. Address Command availpath" fast >T:Ta-Sys.Temp"
  63. call Open(in,'T:Ta-Sys.Temp','R')
  64. fast=readln(in)
  65. Call close(in)
  66. Call Open(in,'T:TA-Sys.Tmp','R')
  67. do i=1 to 4;dummy=readln(in);end
  68. send CYN"Processing System Information Please Wait...  "BLD""WHT
  69. do z=1 to 35
  70.     if ansi="ON" then call clock
  71.     data=readln(in)
  72.     if compress(data)~="" then ariston.z=strip(substr(data,47,length(data)-46,))
  73. end
  74. Call close(in)
  75. newline;newline
  76. continue
  77. sendfile "BBS:Text/Ta-Sys"
  78. if cpu=0 then send "4H"ariston.34
  79. else send "4H"ariston.35
  80. send "4H"ariston.6
  81. send "4H"left(ariston.7,6)
  82. send "4H"ariston.8
  83. send "5H"ariston.12
  84. send "5H"ariston.13
  85. send "5H"ariston.14
  86. send "4H"ariston.1
  87. send "4H"ariston.2
  88. send "4H"ariston.3
  89. send "4H"ariston.4
  90. send "4H"ariston.5
  91. send "74H"ariston.18
  92. if cpu=0 then send "69H"ariston.32
  93. else send "69H"ariston.33
  94. send "63H"ariston.25
  95. send "63H"ariston.27
  96. send "63H"ariston.28
  97. send "31H"ariston.19
  98. send "31H"ariston.9
  99. send "31H"ariston.10
  100. send "31H"ariston.11
  101. send "31H"ariston.15
  102. send "31H"ariston.16
  103. send "31H"ariston.17
  104. send "31H"ariston.20
  105. if cpu=0 then send "43H"ariston.33
  106. else send "43H"ariston.34
  107. send "14H"ariston.29
  108. send "14H"ariston.30
  109. send "9H"chip
  110. send "5H"fast
  111. send "2H"chip+fast
  112. send CLR
  113. getchar
  114. cls
  115. newline
  116. print CYN"Processes Active:"CLR||BLD
  117. newline
  118. address command statuspath" >T:TA-Sys.Tmp"
  119. sendfile "T:TA-Sys.Tmp"
  120. newline
  121. continue
  122. print CLR||CYN"Memory Status:"CLR||BLD
  123. newline
  124. address command availpath" >T:TA-Sys.Tmp"
  125. sendfile "T:TA-Sys.Tmp"
  126. newline
  127. continue
  128. exit
  129. clock:
  130. ab=ab+1
  131. if ab=9 then ab=1
  132. send "D"
  133. if ab=1|ab=5 then send "|"
  134. if ab=2|ab=6 then send "/"
  135. if ab=3|ab=7 then send "-"
  136. if ab=4|ab=8 then send "\"
  137. return
  138.